COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE ALARM
C00004 ENDMK
C⊗;
.TITLE ALARM

SNGSTP==0	;CONDITIONAL ASSEMBLY FLAGS FOR ARM.PAL
DIAGY ==0
STDALN==0
TACCAL==0
NOYELW==1
TIMER ==0
ISLIN ==1
FRCDAT==0

.INSRT ARM.PAL[AL,HE]

    STSW    CPOINTY,0	; unless otherwise stated this is not a POINTY compilation
.IFNZ CPOINTY
.INSRT EULER.PAL[AL,HE]
.INSRT TMOVE3.PAL[PNT,MSM]
.ENDC


.IF P2
CODE
DATA
	.INFO <First location after arm code = >,\CODE$
	.INFO <First location after arm data = >,\DATA$
	    .IFL INTCOD - CODE$
	      .ERROR Arm code runs into interpreter code!
	    .ENDC
	    .IFL INTDAT - DATA$
	      .ERROR Arm data runs into interpreter data!
	    .ENDC
.ENDC

.END